home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / softwareupdate / system / arexx_for_beginners / articles_01-10 / example7-1a.rexx < prev    next >
OS/2 REXX Batch file  |  1994-12-14  |  449b  |  31 lines
  1.   /* Example7-1a.rexx */
  2.  
  3.   /* This is Example7-1 rewritten with the use of a Function */
  4.  
  5.   CALL Display
  6.  
  7.   Name1 = Fred Bloggs
  8.   Name2 = 'Fred Bloggs'
  9.   Value1 = 2.35
  10.   Value2 = Value1 + 2.2
  11.  
  12.   CALL Display
  13.  
  14.   Name1 = 2.35
  15.   Name2 = Name1 + 2.2
  16.   Value1 = Fred Bloggs
  17.   Value2 = 'Fred Bloggs'
  18.  
  19.   CALL Display
  20.  
  21.   EXIT
  22.  
  23.   Display:
  24.  
  25.   SAY
  26.   SAY 'Name1  is ' Name1
  27.   SAY 'Name2  is ' Name2
  28.   SAY 'Value1 is ' Value1
  29.   SAY 'Value2 is ' Value2
  30.   RETURN
  31.